home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-07-27 | 10.3 KB | [TEXT/MPS ] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: serial.readFile.dll.c
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Thu Jul 27 18:53:28 1989, modified Thu Jul 27 18:53:28 1989, creator 'MPS ', type ASCII, 9885 bytes "serial.readFile.dll.c" , at 0x271d 382 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 15 73 65 72 69 61 6c | 2e 72 65 61 64 46 69 6c |..serial|.readFil|
|00000010| 65 2e 64 6c 6c 2e 63 00 | 00 00 00 00 00 00 00 00 |e.dll.c.|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 26 9d 00 | 00 01 7e a0 f5 42 e8 a0 |.....&..|..~..B..|
|00000060| f5 42 e8 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |.B......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 60 a5 00 00 |........|....`...|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 2f 2a 09 0d 2f 2a |********|/./*../*|
|000000d0| 09 73 65 72 69 61 6c 2e | 72 65 61 64 46 69 6c 65 |.serial.|readFile|
|000000e0| 2e 64 6c 6c 2e 63 0d 2f | 2a 09 62 79 20 41 74 75 |.dll.c./|*.by Atu|
|000000f0| 6c 20 42 75 74 74 65 0d | 2f 2a 09 43 6f 70 79 72 |l Butte.|/*.Copyr|
|00000100| 69 67 68 74 20 a9 20 31 | 39 38 39 20 62 79 20 4d |ight . 1|989 by M|
|00000110| 69 63 72 6f 73 6f 66 74 | 20 43 6f 72 70 6f 72 61 |icrosoft| Corpora|
|00000120| 74 69 6f 6e 0d 2f 2a 09 | 41 6c 6c 20 52 69 67 68 |tion./*.|All Righ|
|00000130| 74 73 20 52 65 73 65 72 | 76 65 64 0d 2f 2a 0d 2f |ts Reser|ved./*./|
|00000140| 2a 09 76 65 72 73 69 6f | 6e 20 31 2e 30 0d 2f 2a |*.versio|n 1.0./*|
|00000150| 09 0d 2f 2a 09 0d 2f 2a | 09 54 68 69 73 20 43 41 |../*../*|.This CA|
|00000160| 4c 4c 2f 52 45 47 49 53 | 54 45 52 20 77 69 6c 6c |LL/REGIS|TER will|
|00000170| 20 72 65 61 64 20 66 72 | 6f 6d 20 74 68 65 20 73 | read fr|om the s|
|00000180| 65 72 69 61 6c 20 70 6f | 72 74 20 74 68 65 20 6e |erial po|rt the n|
|00000190| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 0d 2f |umber of| chars./|
|000001a0| 2a 09 73 70 65 63 69 66 | 69 65 64 20 61 6e 64 20 |*.specif|ied and |
|000001b0| 77 69 6c 6c 20 70 75 74 | 20 74 68 65 6d 20 69 6e |will put| them in|
|000001c0| 74 6f 20 61 20 66 69 6c | 65 2e 0d 2f 2a 09 0d 2f |to a fil|e../*../|
|000001d0| 2a 09 45 78 63 65 6c 20 | 75 73 61 67 65 3a 0d 2f |*.Excel |usage:./|
|000001e0| 2a 09 0d 2f 2a 09 3d 20 | 52 65 67 69 73 74 65 72 |*../*.= |Register|
|000001f0| 28 20 22 73 65 72 69 61 | 6c 20 6c 69 62 72 61 72 |( "seria|l librar|
|00000200| 79 22 2c 20 22 73 65 72 | 69 61 6c 2e 72 65 61 64 |y", "ser|ial.read|
|00000210| 46 69 6c 65 22 2c 20 22 | 49 48 48 4a 43 44 22 20 |File", "|IHHJCD" |
|00000220| 29 0d 2f 2a 09 3d 20 43 | 61 6c 6c 28 20 72 65 66 |)./*.= C|all( ref|
|00000230| 2c 20 70 6f 72 74 4e 75 | 6d 62 65 72 2c 20 6e 75 |, portNu|mber, nu|
|00000240| 6d 62 65 72 43 68 61 72 | 73 2c 20 6d 61 78 54 69 |mberChar|s, maxTi|
|00000250| 6d 65 2c 20 72 65 61 64 | 43 6f 6e 66 69 67 53 74 |me, read|ConfigSt|
|00000260| 72 2c 20 66 69 6c 65 4e | 61 6d 65 20 29 0d 2f 2a |r, fileN|ame )./*|
|00000270| 09 0d 2f 2a 09 77 68 65 | 72 65 0d 2f 2a 09 09 70 |../*.whe|re./*..p|
|00000280| 6f 72 74 4e 75 6d 62 65 | 72 09 09 3d 20 6e 75 6d |ortNumbe|r..= num|
|00000290| 62 65 72 20 6f 66 20 70 | 6f 72 74 20 28 31 20 3d |ber of p|ort (1 =|
|000002a0| 20 6d 6f 64 65 6d 2c 20 | 32 20 3d 20 70 72 69 6e | modem, |2 = prin|
|000002b0| 74 65 72 29 0d 2f 2a 09 | 09 6e 75 6d 62 65 72 43 |ter)./*.|.numberC|
|000002c0| 68 61 72 73 09 09 3d 20 | 6e 75 6d 62 65 72 20 6f |hars..= |number o|
|000002d0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 74 6f 20 |f charac|ters to |
|000002e0| 72 65 61 64 0d 2f 2a 09 | 09 6d 61 78 54 69 6d 65 |read./*.|.maxTime|
|000002f0| 09 09 09 3d 20 6d 61 78 | 69 6d 75 6d 20 61 6d 6f |...= max|imum amo|
|00000300| 75 6e 74 20 6f 66 20 74 | 69 6d 65 20 74 6f 20 77 |unt of t|ime to w|
|00000310| 61 69 74 20 66 6f 72 20 | 63 68 61 72 61 63 74 65 |ait for |characte|
|00000320| 72 73 0d 2f 2a 09 09 09 | 09 09 09 20 20 69 6e 20 |rs./*...|... in |
|00000330| 31 2f 36 30 20 73 65 63 | 6f 6e 64 20 75 6e 69 74 |1/60 sec|ond unit|
|00000340| 73 0d 2f 2a 09 09 72 65 | 61 64 43 6f 6e 66 69 67 |s./*..re|adConfig|
|00000350| 53 74 72 09 3d 20 63 6f | 6e 66 69 67 75 72 61 74 |Str.= co|nfigurat|
|00000360| 69 6f 6e 20 6f 66 20 63 | 6f 6d 6d 75 6e 69 63 61 |ion of c|ommunica|
|00000370| 74 69 6f 6e 73 20 70 72 | 6f 74 6f 63 6f 6c 2c 20 |tions pr|otocol, |
|00000380| 65 74 63 0d 2f 2a 09 09 | 66 69 6c 65 4e 61 6d 65 |etc./*..|fileName|
|00000390| 09 09 3d 20 6e 61 6d 65 | 20 6f 66 20 66 69 6c 65 |..= name| of file|
|000003a0| 20 69 6e 20 77 68 69 63 | 68 20 74 6f 20 73 74 6f | in whic|h to sto|
|000003b0| 72 65 20 63 68 61 72 61 | 63 74 65 72 73 0d 2f 2a |re chara|cters./*|
|000003c0| 09 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |../*****|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2f 0d 0d 2f 2a 2a |********|**/../**|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000450| 2a 2a 2a 2a 2a 2f 0d 2f | 2a 0d 2f 2a 09 44 20 45 |*****/./|*./*.D E|
|00000460| 20 46 20 49 20 4e 20 45 | 20 53 0d 2f 2a 0d 2f 2a | F I N E| S./*./*|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 2a 2a 2a 2a 2a 2f 0d | 0d 23 64 65 66 69 6e 65 |******/.|.#define|
|000004c0| 20 52 4f 55 54 49 4e 45 | 5f 4e 41 4d 45 09 22 73 | ROUTINE|_NAME."s|
|000004d0| 65 72 69 61 6c 2e 72 65 | 61 64 46 69 6c 65 22 0d |erial.re|adFile".|
|000004e0| 23 64 65 66 69 6e 65 20 | 68 4e 49 4c 20 30 4c 0d |#define |hNIL 0L.|
|000004f0| 23 64 65 66 69 6e 65 20 | 70 4e 49 4c 20 30 4c 0d |#define |pNIL 0L.|
|00000500| 23 64 65 66 69 6e 65 20 | 6b 63 63 68 42 75 66 66 |#define |kcchBuff|
|00000510| 09 09 36 34 0d 0d 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..64../*|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00000560| 2f 2a 0d 2f 2a 09 49 20 | 4e 20 43 20 4c 20 55 20 |/*./*.I |N C L U |
|00000570| 44 20 45 20 53 0d 2f 2a | 0d 2f 2a 2a 2a 2a 2a 2a |D E S./*|./******|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2f 0d 0d 23 69 6e 63 | 6c 75 64 65 20 22 73 65 |*/..#inc|lude "se|
|000005d0| 72 69 61 6c 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |rial.h".|#include|
|000005e0| 20 22 65 72 72 6f 72 2e | 68 22 0d 23 69 6e 63 6c | "error.|h".#incl|
|000005f0| 75 64 65 20 22 67 65 74 | 5f 70 6f 72 74 2e 68 22 |ude "get|_port.h"|
|00000600| 0d 23 69 6e 63 6c 75 64 | 65 20 22 67 65 74 5f 72 |.#includ|e "get_r|
|00000610| 65 61 64 5f 66 6c 61 67 | 73 2e 68 22 0d 0d 2f 2a |ead_flag|s.h"../*|
|00000620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000660| 2a 2a 2a 2a 2a 2a 2f 0d | 2f 2a 0d 2f 2a 09 50 20 |******/.|/*./*.P |
|00000670| 52 20 4f 20 54 20 4f 20 | 54 20 59 20 50 20 45 20 |R O T O |T Y P E |
|00000680| 53 0d 2f 2a 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |S./*./**|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|000006d0| 73 68 6f 72 74 20 6f 70 | 65 6e 5f 66 69 6c 65 28 |short op|en_file(|
|000006e0| 20 63 68 61 72 20 2a 70 | 73 74 46 69 6c 65 6e 61 | char *p|stFilena|
|000006f0| 6d 65 20 29 3b 0d 76 6f | 69 64 20 63 6c 6f 73 65 |me );.vo|id close|
|00000700| 5f 66 69 6c 65 28 20 73 | 68 6f 72 74 20 72 65 66 |_file( s|hort ref|
|00000710| 6e 75 6d 2c 20 63 68 61 | 72 20 2a 70 63 68 2c 20 |num, cha|r *pch, |
|00000720| 75 6e 73 69 67 6e 65 64 | 20 73 68 6f 72 74 20 64 |unsigned| short d|
|00000730| 63 68 20 29 3b 0d 42 6f | 6f 6c 65 61 6e 20 73 74 |ch );.Bo|olean st|
|00000740| 6f 72 65 5f 63 68 61 72 | 61 63 74 65 72 28 20 73 |ore_char|acter( s|
|00000750| 68 6f 72 74 20 72 65 66 | 6e 75 6d 2c 20 63 68 61 |hort ref|num, cha|
|00000760| 72 20 63 52 65 61 64 2c | 20 63 68 61 72 20 2a 70 |r cRead,| char *p|
|00000770| 63 68 2c 20 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |ch, unsi|gned sho|
|00000780| 72 74 20 2a 64 63 68 20 | 29 3b 0d 0d 2f 2a 2a 2a |rt *dch |);../***|
|00000790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007d0| 2a 2a 2a 2a 2f 0d 2f 2a | 0d 2f 2a 09 6d 61 69 6e |****/./*|./*.main|
|000007e0| 0d 2f 2a 0d 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./*./***|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 70 |********|****/..p|
|00000830| 61 73 63 61 6c 20 73 68 | 6f 72 74 20 6d 61 69 6e |ascal sh|ort main|
|00000840| 28 20 70 6f 72 74 2c 20 | 63 63 68 44 65 73 69 72 |( port, |cchDesir|
|00000850| 65 64 2c 20 74 69 6d 65 | 44 75 72 2c 20 70 73 7a |ed, time|Dur, psz|
|00000860| 43 6f 6e 66 69 67 2c 20 | 70 73 74 46 69 6c 65 6e |Config, |pstFilen|
|00000870| 61 6d 65 20 29 0d 0d 09 | 75 6e 73 69 67 6e 65 64 |ame )...|unsigned|
|00000880| 20 73 68 6f 72 74 09 09 | 09 70 6f 72 74 3b 09 09 | short..|.port;..|
|00000890| 09 09 09 2f 2a 20 73 65 | 72 69 61 6c 20 70 6f 72 |.../* se|rial por|
|000008a0| 74 20 74 6f 20 75 73 65 | 20 2a 2f 0d 09 75 6e 73 |t to use| */..uns|
|000008b0| 69 67 6e 65 64 20 73 68 | 6f 72 74 09 09 09 63 63 |igned sh|ort...cc|
|000008c0| 68 44 65 73 69 72 65 64 | 3b 09 09 09 09 2f 2a 20 |hDesired|;..../* |
|000008d0| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 61 63 |number o|f charac|
|000008e0| 74 65 72 73 20 64 65 73 | 69 72 65 64 20 2a 2f 0d |ters des|ired */.|
|000008f0| 09 75 6e 73 69 67 6e 65 | 64 20 6c 6f 6e 67 09 09 |.unsigne|d long..|
|00000900| 09 74 69 6d 65 44 75 72 | 3b 09 09 09 09 2f 2a 20 |.timeDur|;..../* |
|00000910| 6d 61 78 69 6d 75 6d 20 | 74 69 6d 65 20 74 6f 20 |maximum |time to |
|00000920| 77 61 69 74 20 66 6f 72 | 20 63 68 61 72 73 20 28 |wait for| chars (|
|00000930| 69 6e 20 74 69 63 6b 73 | 29 20 2a 2f 0d 09 63 68 |in ticks|) */..ch|
|00000940| 61 72 09 09 09 09 09 2a | 70 73 7a 43 6f 6e 66 69 |ar.....*|pszConfi|
|00000950| 67 3b 09 09 09 09 2f 2a | 20 63 6f 6d 6d 75 6e 69 |g;..../*| communi|
|00000960| 63 61 74 69 6f 6e 73 20 | 63 6f 6e 66 69 67 75 72 |cations |configur|
|00000970| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 20 2a 2f 0d |ation st|ring */.|
|00000980| 09 72 65 67 69 73 74 65 | 72 20 63 68 61 72 09 09 |.registe|r char..|
|00000990| 09 2a 70 73 74 46 69 6c | 65 6e 61 6d 65 3b 09 09 |.*pstFil|ename;..|
|000009a0| 09 2f 2a 20 6e 61 6d 65 | 20 6f 66 20 66 69 6c 65 |./* name| of file|
|000009b0| 20 69 6e 20 77 68 69 63 | 68 20 74 6f 20 73 61 76 | in whic|h to sav|
|000009c0| 65 20 63 68 61 72 61 63 | 74 65 72 73 20 2a 2f 0d |e charac|ters */.|
|000009d0| 09 0d 7b 0d 09 72 65 67 | 69 73 74 65 72 20 4f 53 |..{..reg|ister OS|
|000009e0| 45 72 72 09 09 09 65 72 | 72 3b 09 09 09 09 09 2f |Err...er|r;...../|
|000009f0| 2a 20 72 65 73 75 6c 74 | 20 63 6f 64 65 20 66 72 |* result| code fr|
|00000a00| 6f 6d 20 54 6f 6f 6c 62 | 6f 78 20 72 6f 75 74 69 |om Toolb|ox routi|
|00000a10| 6e 65 73 20 2a 2f 0d 09 | 50 61 72 61 6d 42 6c 6f |nes */..|ParamBlo|
|00000a20| 63 6b 52 65 63 09 09 09 | 70 61 72 61 6d 3b 09 09 |ckRec...|param;..|
|00000a30| 09 09 09 2f 2a 20 70 61 | 72 61 6d 65 74 65 72 20 |.../* pa|rameter |
|00000a40| 62 6c 6f 63 6b 20 66 6f | 72 20 72 65 61 64 2f 77 |block fo|r read/w|
|00000a50| 72 69 74 65 20 2a 2f 0d | 09 0d 09 42 6f 6f 6c 65 |rite */.|...Boole|
|00000a60| 61 6e 09 09 09 09 09 66 | 45 63 68 6f 20 3d 20 66 |an.....f|Echo = f|
|00000a70| 61 6c 73 65 3b 09 09 09 | 2f 2a 20 66 6c 61 67 20 |alse;...|/* flag |
|00000a80| 66 6f 72 20 65 63 68 6f | 69 6e 67 20 63 68 61 72 |for echo|ing char|
|00000a90| 61 63 74 65 72 73 20 2a | 2f 0d 09 42 6f 6f 6c 65 |acters *|/..Boole|
|00000aa0| 61 6e 09 09 09 09 09 66 | 45 64 69 74 20 3d 20 66 |an.....f|Edit = f|
|00000ab0| 61 6c 73 65 3b 09 09 09 | 2f 2a 20 66 6c 61 67 20 |alse;...|/* flag |
|00000ac0| 66 6f 72 20 61 6c 6c 6f | 77 69 6e 67 20 65 64 69 |for allo|wing edi|
|00000ad0| 74 20 63 68 61 72 61 63 | 74 65 72 73 20 2a 2f 0d |t charac|ters */.|
|00000ae0| 09 42 6f 6f 6c 65 61 6e | 09 09 09 09 09 66 53 74 |.Boolean|.....fSt|
|00000af0| 72 69 70 4c 46 20 3d 20 | 66 61 6c 73 65 3b 09 09 |ripLF = |false;..|
|00000b00| 2f 2a 20 66 6c 61 67 20 | 66 6f 72 20 73 74 72 69 |/* flag |for stri|
|00000b10| 70 70 69 6e 67 20 6c 69 | 6e 65 20 66 65 65 64 73 |pping li|ne feeds|
|00000b20| 20 2a 2f 0d 09 42 6f 6f | 6c 65 61 6e 09 09 09 09 | */..Boo|lean....|
|00000b30| 09 66 53 74 72 69 70 38 | 42 69 74 20 3d 20 66 61 |.fStrip8|Bit = fa|
|00000b40| 6c 73 65 3b 09 09 2f 2a | 20 66 6c 61 67 20 66 6f |lse;../*| flag fo|
|00000b50| 72 20 73 74 72 69 70 70 | 69 6e 67 20 68 69 67 68 |r stripp|ing high|
|00000b60| 20 62 69 74 20 2a 2f 0d | 09 42 6f 6f 6c 65 61 6e | bit */.|.Boolean|
|00000b70| 09 09 09 09 09 66 41 64 | 64 4c 46 20 3d 20 66 61 |.....fAd|dLF = fa|
|00000b80| 6c 73 65 3b 09 09 09 2f | 2a 20 66 6c 61 67 20 66 |lse;.../|* flag f|
|00000b90| 6f 72 20 61 64 64 69 6e | 67 20 4c 46 20 61 66 74 |or addin|g LF aft|
|00000ba0| 65 72 20 43 52 20 2a 2f | 0d 09 42 6f 6f 6c 65 61 |er CR */|..Boolea|
|00000bb0| 6e 09 09 09 09 09 66 49 | 67 6e 6f 72 65 20 3d 20 |n.....fI|gnore = |
|00000bc0| 66 61 6c 73 65 3b 09 09 | 2f 2a 20 66 6c 61 67 20 |false;..|/* flag |
|00000bd0| 66 6f 72 20 69 67 6e 6f | 72 69 6e 67 20 65 73 63 |for igno|ring esc|
|00000be0| 61 70 65 20 63 68 61 72 | 73 20 2a 2f 0d 09 0d 09 |ape char|s */....|
|00000bf0| 72 65 67 69 73 74 65 72 | 20 73 68 6f 72 74 09 09 |register| short..|
|00000c00| 09 63 63 68 20 3d 20 30 | 3b 09 09 09 09 2f 2a 20 |.cch = 0|;..../* |
|00000c10| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 61 63 |number o|f charac|
|00000c20| 74 65 72 73 20 72 65 63 | 65 69 76 65 64 20 2a 2f |ters rec|eived */|
|00000c30| 0d 09 6c 6f 6e 67 09 09 | 09 09 09 63 63 68 42 75 |..long..|...cchBu|
|00000c40| 66 66 20 3d 20 30 3b 09 | 09 09 2f 2a 20 6e 75 6d |ff = 0;.|../* num|
|00000c50| 62 65 72 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ber of c|haracter|
|00000c60| 73 20 77 61 69 74 69 6e | 67 20 69 6e 20 72 65 61 |s waitin|g in rea|
|00000c70| 64 20 62 75 66 66 65 72 | 20 2a 2f 0d 09 72 65 67 |d buffer| */..reg|
|00000c80| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 6c |ister un|signed l|
|00000c90| 6f 6e 67 09 74 69 6d 65 | 53 74 6f 70 3b 09 09 09 |ong.time|Stop;...|
|00000ca0| 09 2f 2a 20 74 69 6d 65 | 20 61 74 20 77 68 69 63 |./* time| at whic|
|00000cb0| 68 20 74 6f 20 73 74 6f | 70 20 2a 2f 0d 09 73 68 |h to sto|p */..sh|
|00000cc0| 6f 72 74 09 09 09 09 09 | 72 65 66 49 6e 3b 09 09 |ort.....|refIn;..|
|00000cd0| 09 09 09 2f 2a 20 72 65 | 66 65 72 65 6e 63 65 20 |.../* re|ference |
|00000ce0| 6e 75 6d 62 65 72 20 66 | 6f 72 20 69 6e 70 75 74 |number f|or input|
|00000cf0| 20 70 6f 72 74 20 2a 2f | 0d 09 73 68 6f 72 74 09 | port */|..short.|
|00000d00| 09 09 09 09 72 65 66 4f | 75 74 3b 09 09 09 09 09 |....refO|ut;.....|
|00000d10| 2f 2a 20 72 65 66 65 72 | 65 6e 63 65 20 6e 75 6d |/* refer|ence num|
|00000d20| 62 65 72 20 66 6f 72 20 | 6f 75 74 70 75 74 20 70 |ber for |output p|
|00000d30| 6f 72 74 20 2a 2f 0d 09 | 63 68 61 72 09 09 09 09 |ort */..|char....|
|00000d40| 09 63 68 52 65 61 64 3b | 09 09 09 09 09 2f 2a 20 |.chRead;|...../* |
|00000d50| 62 75 66 66 65 72 20 75 | 73 65 64 20 74 6f 20 72 |buffer u|sed to r|
|00000d60| 65 61 64 20 61 20 63 68 | 61 72 61 63 74 65 72 20 |ead a ch|aracter |
|00000d70| 2a 2f 0d 09 72 65 67 69 | 73 74 65 72 20 63 68 61 |*/..regi|ster cha|
|00000d80| 72 09 09 09 63 68 3b 09 | 09 09 09 09 09 2f 2a 20 |r...ch;.|...../* |
|00000d90| 63 68 61 72 61 63 74 65 | 72 20 72 65 61 64 20 2a |characte|r read *|
|00000da0| 2f 0d 09 63 68 61 72 09 | 09 09 09 09 65 63 68 6f |/..char.|....echo|
|00000db0| 42 61 63 6b 73 70 61 63 | 65 5b 33 5d 3b 09 09 2f |Backspac|e[3];../|
|00000dc0| 2a 20 63 68 61 72 61 63 | 74 65 72 73 20 74 6f 20 |* charac|ters to |
|00000dd0| 73 65 6e 64 20 74 6f 20 | 65 63 68 6f 20 42 61 63 |send to |echo Bac|
|00000de0| 6b 73 70 61 63 65 20 2a | 2f 0d 09 63 68 61 72 09 |kspace *|/..char.|
|00000df0| 09 09 09 09 65 63 68 6f | 4c 69 6e 65 66 65 65 64 |....echo|Linefeed|
|00000e00| 3b 09 09 09 2f 2a 20 63 | 68 61 72 61 63 74 65 72 |;.../* c|haracter|
|00000e10| 73 20 74 6f 20 73 65 6e | 64 20 74 6f 20 65 63 68 |s to sen|d to ech|
|00000e20| 6f 20 4c 69 6e 65 66 65 | 65 64 20 2a 2f 0d 09 0d |o Linefe|ed */...|
|00000e30| 09 63 68 61 72 09 09 09 | 09 09 2a 70 63 68 3b 09 |.char...|..*pch;.|
|00000e40| 09 09 09 09 2f 2a 20 62 | 75 66 66 65 72 20 75 73 |..../* b|uffer us|
|00000e50| 65 64 20 69 6e 20 66 69 | 6c 65 20 72 65 61 64 69 |ed in fi|le readi|
|00000e60| 6e 67 20 2a 2f 0d 09 75 | 6e 73 69 67 6e 65 64 20 |ng */..u|nsigned |
|00000e70| 73 68 6f 72 74 09 09 09 | 69 63 68 42 75 66 66 20 |short...|ichBuff |
|00000e80| 3d 20 30 3b 09 09 09 2f | 2a 20 69 6e 64 65 78 20 |= 0;.../|* index |
|00000e90| 69 6e 20 62 75 66 66 65 | 72 20 2a 2f 0d 09 73 68 |in buffe|r */..sh|
|00000ea0| 6f 72 74 09 09 09 09 09 | 72 65 66 46 69 6c 65 3b |ort.....|refFile;|
|00000eb0| 09 09 09 09 2f 2a 20 72 | 65 66 65 72 65 6e 63 65 |..../* r|eference|
|00000ec0| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 66 69 6c 65 | number |for file|
|00000ed0| 20 2a 2f 0d 09 0d 09 52 | 65 6d 65 6d 62 65 72 41 | */....R|ememberA|
|00000ee0| 30 28 29 3b 0d 09 53 65 | 74 55 70 41 34 28 29 3b |0();..Se|tUpA4();|
|00000ef0| 0d 09 0d 09 69 66 28 20 | 70 73 7a 43 6f 6e 66 69 |....if( |pszConfi|
|00000f00| 67 20 3d 3d 20 70 4e 49 | 4c 20 29 20 7b 0d 09 09 |g == pNI|L ) {...|
|00000f10| 64 69 73 70 6c 61 79 5f | 65 72 72 6f 72 28 20 22 |display_|error( "|
|00000f20| 54 68 65 20 74 68 69 72 | 64 20 70 61 72 61 6d 65 |The thir|d parame|
|00000f30| 74 65 72 20 6d 75 73 74 | 20 62 65 20 61 20 63 6f |ter must| be a co|
|00000f40| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 73 74 72 69 |nfigurat|ion stri|
|00000f50| 6e 67 2e 22 20 29 3b 0d | 09 09 52 65 73 74 6f 72 |ng." );.|..Restor|
|00000f60| 65 41 34 28 20 29 3b 0d | 09 09 72 65 74 75 72 6e |eA4( );.|..return|
|00000f70| 28 20 65 72 72 50 61 72 | 61 6d 20 29 3b 0d 09 7d |( errPar|am );..}|
|00000f80| 0d 09 69 66 28 20 70 73 | 74 46 69 6c 65 6e 61 6d |..if( ps|tFilenam|
|00000f90| 65 20 3d 3d 20 70 4e 49 | 4c 20 29 20 7b 0d 09 09 |e == pNI|L ) {...|
|00000fa0| 64 69 73 70 6c 61 79 5f | 65 72 72 6f 72 28 20 22 |display_|error( "|
|00000fb0| 54 68 65 20 66 69 66 74 | 68 20 70 61 72 61 6d 65 |The fift|h parame|
|00000fc0| 74 65 72 20 6d 75 73 74 | 20 62 65 20 61 20 66 69 |ter must| be a fi|
|00000fd0| 6c 65 20 6e 61 6d 65 2e | 22 20 29 3b 0d 09 09 52 |le name.|" );...R|
|00000fe0| 65 73 74 6f 72 65 41 34 | 28 20 29 3b 0d 09 09 72 |estoreA4|( );...r|
|00000ff0| 65 74 75 72 6e 28 20 65 | 72 72 50 61 72 61 6d 20 |eturn( e|rrParam |
|00001000| 29 3b 0d 09 7d 0d 09 69 | 66 28 20 2a 70 73 74 46 |);..}..i|f( *pstF|
|00001010| 69 6c 65 6e 61 6d 65 20 | 3d 3d 20 30 20 29 20 7b |ilename |== 0 ) {|
|00001020| 0d 09 09 64 69 73 70 6c | 61 79 5f 65 72 72 6f 72 |...displ|ay_error|
|00001030| 28 20 22 54 68 65 20 66 | 69 66 74 68 20 70 61 72 |( "The f|ifth par|
|00001040| 61 6d 65 74 65 72 20 6d | 75 73 74 20 62 65 20 61 |ameter m|ust be a|
|00001050| 20 66 69 6c 65 20 6e 61 | 6d 65 2e 22 20 29 3b 0d | file na|me." );.|
|00001060| 09 09 52 65 73 74 6f 72 | 65 41 34 28 20 29 3b 0d |..Restor|eA4( );.|
|00001070| 09 09 72 65 74 75 72 6e | 28 20 65 72 72 50 61 72 |..return|( errPar|
|00001080| 61 6d 20 29 3b 0d 09 7d | 0d 0d 09 65 72 72 20 3d |am );..}|...err =|
|00001090| 20 67 65 74 5f 70 6f 72 | 74 28 20 70 6f 72 74 2c | get_por|t( port,|
|000010a0| 20 26 72 65 66 49 6e 2c | 20 26 72 65 66 4f 75 74 | &refIn,| &refOut|
|000010b0| 20 29 3b 0d 09 69 66 28 | 20 65 72 72 20 21 3d 20 | );..if(| err != |
|000010c0| 6e 6f 45 72 72 20 29 20 | 7b 0d 09 09 64 69 73 70 |noErr ) |{...disp|
|000010d0| 6c 61 79 5f 65 72 72 6f | 72 28 20 22 49 6c 6c 65 |lay_erro|r( "Ille|
|000010e0| 67 61 6c 20 70 6f 72 74 | 20 6e 75 6d 62 65 72 2e |gal port| number.|
|000010f0| 22 20 29 3b 0d 09 09 52 | 65 73 74 6f 72 65 41 34 |" );...R|estoreA4|
|00001100| 28 20 29 3b 0d 09 09 72 | 65 74 75 72 6e 28 20 65 |( );...r|eturn( e|
|00001110| 72 72 20 29 3b 0d 09 7d | 0d 09 09 0d 09 70 63 68 |rr );..}|.....pch|
|00001120| 20 3d 20 4e 65 77 50 74 | 72 28 20 6b 63 63 68 42 | = NewPt|r( kcchB|
|00001130| 75 66 66 20 29 3b 0d 09 | 69 66 28 20 70 63 68 20 |uff );..|if( pch |
|00001140| 3d 3d 20 70 4e 49 4c 20 | 29 20 7b 0d 09 09 64 69 |== pNIL |) {...di|
|00001150| 73 70 6c 61 79 5f 65 72 | 72 6f 72 28 20 22 4e 6f |splay_er|ror( "No|
|00001160| 74 20 65 6e 6f 75 67 68 | 20 6d 65 6d 6f 72 79 20 |t enough| memory |
|00001170| 74 6f 20 61 6c 6c 6f 63 | 61 74 65 20 62 75 66 66 |to alloc|ate buff|
|00001180| 65 72 2e 22 20 29 3b 0d | 09 09 52 65 73 74 6f 72 |er." );.|..Restor|
|00001190| 65 41 34 28 20 29 3b 0d | 09 09 72 65 74 75 72 6e |eA4( );.|..return|
|000011a0| 28 20 65 72 72 4d 65 6d | 6f 72 79 20 29 3b 0d 09 |( errMem|ory );..|
|000011b0| 7d 0d 09 69 63 68 42 75 | 66 66 20 3d 20 30 3b 0d |}..ichBu|ff = 0;.|
|000011c0| 09 0d 09 69 66 28 20 28 | 20 72 65 66 46 69 6c 65 |...if( (| refFile|
|000011d0| 20 3d 20 6f 70 65 6e 5f | 66 69 6c 65 28 20 70 73 | = open_|file( ps|
|000011e0| 74 46 69 6c 65 6e 61 6d | 65 20 29 20 29 20 3d 3d |tFilenam|e ) ) ==|
|000011f0| 20 30 20 29 20 7b 0d 09 | 09 52 65 73 74 6f 72 65 | 0 ) {..|.Restore|
|00001200| 41 34 28 20 29 3b 0d 09 | 09 72 65 74 75 72 6e 28 |A4( );..|.return(|
|00001210| 20 65 72 72 44 69 73 6b | 57 72 69 74 65 20 29 3b | errDisk|Write );|
|00001220| 0d 09 7d 0d 09 0d 09 67 | 65 74 5f 72 65 61 64 5f |..}....g|et_read_|
|00001230| 66 6c 61 67 73 28 20 70 | 73 7a 43 6f 6e 66 69 67 |flags( p|szConfig|
|00001240| 2c 20 26 66 45 63 68 6f | 2c 20 26 66 45 64 69 74 |, &fEcho|, &fEdit|
|00001250| 2c 20 26 66 53 74 72 69 | 70 4c 46 2c 20 26 66 53 |, &fStri|pLF, &fS|
|00001260| 74 72 69 70 38 42 69 74 | 2c 20 26 66 41 64 64 4c |trip8Bit|, &fAddL|
|00001270| 46 2c 20 26 66 49 67 6e | 6f 72 65 20 29 3b 0d 09 |F, &fIgn|ore );..|
|00001280| 0d 09 69 66 28 20 66 45 | 63 68 6f 20 29 20 7b 0d |..if( fE|cho ) {.|
|00001290| 09 09 65 63 68 6f 42 61 | 63 6b 73 70 61 63 65 5b |..echoBa|ckspace[|
|000012a0| 30 5d 20 3d 20 6b 63 68 | 42 61 63 6b 73 70 61 63 |0] = kch|Backspac|
|000012b0| 65 3b 0d 09 09 65 63 68 | 6f 42 61 63 6b 73 70 61 |e;...ech|oBackspa|
|000012c0| 63 65 5b 31 5d 20 3d 20 | 27 20 27 3b 0d 09 09 65 |ce[1] = |' ';...e|
|000012d0| 63 68 6f 42 61 63 6b 73 | 70 61 63 65 5b 32 5d 20 |choBacks|pace[2] |
|000012e0| 3d 20 6b 63 68 42 61 63 | 6b 73 70 61 63 65 3b 0d |= kchBac|kspace;.|
|000012f0| 09 09 69 66 28 20 66 41 | 64 64 4c 46 20 29 20 7b |..if( fA|ddLF ) {|
|00001300| 0d 09 09 09 65 63 68 6f | 4c 69 6e 65 66 65 65 64 |....echo|Linefeed|
|00001310| 20 3d 20 6b 63 68 4c 69 | 6e 65 66 65 65 64 3b 0d | = kchLi|nefeed;.|
|00001320| 09 09 7d 0d 09 7d 0d 09 | 0d 09 74 69 6d 65 53 74 |..}..}..|..timeSt|
|00001330| 6f 70 20 3d 20 54 69 63 | 6b 43 6f 75 6e 74 28 20 |op = Tic|kCount( |
|00001340| 29 20 2b 20 74 69 6d 65 | 44 75 72 3b 0d 09 0d 09 |) + time|Dur;....|
|00001350| 77 68 69 6c 65 28 20 63 | 63 68 20 3c 20 63 63 68 |while( c|ch < cch|
|00001360| 44 65 73 69 72 65 64 20 | 29 20 7b 0d 09 0d 09 09 |Desired |) {.....|
|00001370| 69 66 28 20 28 20 74 69 | 6d 65 44 75 72 20 21 3d |if( ( ti|meDur !=|
|00001380| 20 30 20 29 20 26 26 20 | 28 20 54 69 63 6b 43 6f | 0 ) && |( TickCo|
|00001390| 75 6e 74 28 20 29 20 3e | 3d 20 74 69 6d 65 53 74 |unt( ) >|= timeSt|
|000013a0| 6f 70 20 29 20 29 20 7b | 0d 09 09 09 62 72 65 61 |op ) ) {|....brea|
|000013b0| 6b 3b 0d 09 09 7d 0d 09 | 09 65 72 72 20 3d 20 53 |k;...}..|.err = S|
|000013c0| 65 72 47 65 74 42 75 66 | 28 20 72 65 66 49 6e 2c |erGetBuf|( refIn,|
|000013d0| 20 26 63 63 68 42 75 66 | 66 20 29 3b 0d 09 09 69 | &cchBuf|f );...i|
|000013e0| 66 28 20 65 72 72 20 21 | 3d 20 6e 6f 45 72 72 20 |f( err !|= noErr |
|000013f0| 29 20 7b 0d 09 09 09 64 | 69 73 70 6c 61 79 5f 65 |) {....d|isplay_e|
|00001400| 72 72 6f 72 28 20 22 45 | 72 72 6f 72 20 74 72 79 |rror( "E|rror try|
|00001410| 69 6e 67 20 74 6f 20 63 | 6f 75 6e 74 20 62 75 66 |ing to c|ount buf|
|00001420| 66 65 72 2e 22 20 29 3b | 0d 09 09 09 65 72 72 20 |fer." );|....err |
|00001430| 3d 20 65 72 72 53 65 72 | 69 61 6c 47 65 74 42 75 |= errSer|ialGetBu|
|00001440| 66 3b 0d 09 09 09 67 6f | 74 6f 20 43 6c 65 61 6e |f;....go|to Clean|
|00001450| 45 78 69 74 3b 0d 09 09 | 7d 0d 09 09 69 66 28 20 |Exit;...|}...if( |
|00001460| 63 63 68 42 75 66 66 20 | 3d 3d 20 30 20 29 0d 09 |cchBuff |== 0 )..|
|00001470| 09 09 63 6f 6e 74 69 6e | 75 65 3b 0d 09 09 70 61 |..contin|ue;...pa|
|00001480| 72 61 6d 2e 69 6f 50 61 | 72 61 6d 2e 69 6f 52 65 |ram.ioPa|ram.ioRe|
|00001490| 71 43 6f 75 6e 74 20 3d | 20 31 3b 0d 09 09 70 61 |qCount =| 1;...pa|
|000014a0| 72 61 6d 2e 69 6f 50 61 | 72 61 6d 2e 69 6f 42 75 |ram.ioPa|ram.ioBu|
|000014b0| 66 66 65 72 20 3d 20 26 | 63 68 52 65 61 64 3b 0d |ffer = &|chRead;.|
|000014c0| 09 09 70 61 72 61 6d 2e | 69 6f 50 61 72 61 6d 2e |..param.|ioParam.|
|000014d0| 69 6f 52 65 66 4e 75 6d | 20 3d 20 72 65 66 49 6e |ioRefNum| = refIn|
|000014e0| 3b 0d 09 09 65 72 72 20 | 3d 20 50 42 52 65 61 64 |;...err |= PBRead|
|000014f0| 28 20 26 70 61 72 61 6d | 2c 20 66 61 6c 73 65 20 |( ¶m|, false |
|00001500| 29 3b 0d 09 09 69 66 28 | 20 65 72 72 20 21 3d 20 |);...if(| err != |
|00001510| 6e 6f 45 72 72 20 29 20 | 7b 0d 09 09 09 64 69 73 |noErr ) |{....dis|
|00001520| 70 6c 61 79 5f 65 72 72 | 6f 72 28 20 22 45 72 72 |play_err|or( "Err|
|00001530| 6f 72 20 72 65 61 64 69 | 6e 67 20 66 72 6f 6d 20 |or readi|ng from |
|00001540| 73 65 72 69 61 6c 20 70 | 6f 72 74 2e 22 20 29 3b |serial p|ort." );|
|00001550| 0d 09 09 09 65 72 72 20 | 3d 20 65 72 72 53 65 72 |....err |= errSer|
|00001560| 69 61 6c 52 65 61 64 3b | 0d 09 09 09 67 6f 74 6f |ialRead;|....goto|
|00001570| 20 43 6c 65 61 6e 45 78 | 69 74 3b 0d 09 09 7d 0d | CleanEx|it;...}.|
|00001580| 0d 09 09 63 68 20 3d 20 | 63 68 52 65 61 64 3b 0d |...ch = |chRead;.|
|00001590| 0d 09 09 69 66 28 20 28 | 20 28 63 68 20 3d 3d 20 |...if( (| (ch == |
|000015a0| 6b 63 68 42 61 63 6b 73 | 70 61 63 65 29 20 7c 7c |kchBacks|pace) |||
|000015b0| 20 28 63 68 20 3d 3d 20 | 6b 63 68 44 65 6c 65 74 | (ch == |kchDelet|
|000015c0| 65 29 20 29 20 26 26 20 | 28 66 45 64 69 74 29 20 |e) ) && |(fEdit) |
|000015d0| 29 20 7b 0d 09 09 09 63 | 63 68 20 2d 3d 20 32 3b |) {....c|ch -= 2;|
|000015e0| 0d 09 09 09 69 66 28 20 | 63 63 68 20 3e 3d 20 2d |....if( |cch >= -|
|000015f0| 31 20 29 20 7b 0d 09 09 | 09 09 63 63 68 20 3d 20 |1 ) {...|..cch = |
|00001600| 2d 31 3b 0d 09 09 09 7d | 0d 09 09 09 69 66 28 20 |-1;....}|....if( |
|00001610| 66 45 63 68 6f 20 29 20 | 7b 0d 09 09 09 09 70 61 |fEcho ) |{.....pa|
|00001620| 72 61 6d 2e 69 6f 50 61 | 72 61 6d 2e 69 6f 52 65 |ram.ioPa|ram.ioRe|
|00001630| 71 43 6f 75 6e 74 20 3d | 20 33 3b 0d 09 09 09 09 |qCount =| 3;.....|
|00001640| 70 61 72 61 6d 2e 69 6f | 50 61 72 61 6d 2e 69 6f |param.io|Param.io|
|00001650| 52 65 66 4e 75 6d 20 3d | 20 72 65 66 4f 75 74 3b |RefNum =| refOut;|
|00001660| 0d 09 09 09 09 70 61 72 | 61 6d 2e 69 6f 50 61 72 |.....par|am.ioPar|
|00001670| 61 6d 2e 69 6f 42 75 66 | 66 65 72 20 3d 20 65 63 |am.ioBuf|fer = ec|
|00001680| 68 6f 42 61 63 6b 73 70 | 61 63 65 3b 0d 09 09 09 |hoBacksp|ace;....|
|00001690| 09 65 72 72 20 3d 20 50 | 42 57 72 69 74 65 28 20 |.err = P|BWrite( |
|000016a0| 26 70 61 72 61 6d 2c 20 | 66 61 6c 73 65 20 29 3b |¶m, |false );|
|000016b0| 0d 09 09 09 09 69 66 28 | 20 65 72 72 20 21 3d 20 |.....if(| err != |
|000016c0| 6e 6f 45 72 72 20 29 20 | 7b 0d 09 09 09 09 09 64 |noErr ) |{......d|
|000016d0| 69 73 70 6c 61 79 5f 65 | 72 72 6f 72 28 20 22 45 |isplay_e|rror( "E|
|000016e0| 72 72 6f 72 20 65 63 68 | 6f 69 6e 67 20 62 61 63 |rror ech|oing bac|
|000016f0| 6b 73 70 61 63 65 20 74 | 6f 20 73 65 72 69 61 6c |kspace t|o serial|
|00001700| 20 70 6f 72 74 2e 22 20 | 29 3b 0d 09 09 09 09 09 | port." |);......|
|00001710| 65 72 72 20 3d 20 65 72 | 72 53 65 72 69 61 6c 57 |err = er|rSerialW|
|00001720| 72 69 74 65 3b 0d 09 09 | 09 09 09 67 6f 74 6f 20 |rite;...|...goto |
|00001730| 43 6c 65 61 6e 45 78 69 | 74 3b 0d 09 09 09 09 7d |CleanExi|t;.....}|
|00001740| 0d 09 09 09 7d 0d 09 09 | 7d 20 65 6c 73 65 20 69 |....}...|} else i|
|00001750| 66 28 20 66 45 63 68 6f | 20 29 20 7b 09 09 2f 2a |f( fEcho| ) {../*|
|00001760| 20 69 66 20 6e 6f 74 20 | 61 20 62 61 63 6b 73 70 | if not |a backsp|
|00001770| 61 63 65 20 6f 72 20 64 | 65 6c 65 74 65 20 2a 2f |ace or d|elete */|
|00001780| 0d 09 09 09 70 61 72 61 | 6d 2e 69 6f 50 61 72 61 |....para|m.ioPara|
|00001790| 6d 2e 69 6f 52 65 71 43 | 6f 75 6e 74 20 3d 20 31 |m.ioReqC|ount = 1|
|000017a0| 3b 0d 09 09 09 70 61 72 | 61 6d 2e 69 6f 50 61 72 |;....par|am.ioPar|
|000017b0| 61 6d 2e 69 6f 52 65 66 | 4e 75 6d 20 3d 20 72 65 |am.ioRef|Num = re|
|000017c0| 66 4f 75 74 3b 0d 09 09 | 09 65 72 72 20 3d 20 50 |fOut;...|.err = P|
|000017d0| 42 57 72 69 74 65 28 20 | 26 70 61 72 61 6d 2c 20 |BWrite( |¶m, |
|000017e0| 66 61 6c 73 65 20 29 3b | 0d 09 09 09 69 66 28 20 |false );|....if( |
|000017f0| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 20 29 20 7b |err != n|oErr ) {|
|00001800| 0d 09 09 09 09 64 69 73 | 70 6c 61 79 5f 65 72 72 |.....dis|play_err|
|00001810| 6f 72 28 20 22 45 72 72 | 6f 72 20 65 63 68 6f 69 |or( "Err|or echoi|
|00001820| 6e 67 20 74 6f 20 73 65 | 72 69 61 6c 20 70 6f 72 |ng to se|rial por|
|00001830| 74 2e 22 20 29 3b 0d 09 | 09 09 09 65 72 72 20 3d |t." );..|...err =|
|00001840| 20 65 72 72 53 65 72 69 | 61 6c 57 72 69 74 65 3b | errSeri|alWrite;|
|00001850| 0d 09 09 09 09 67 6f 74 | 6f 20 43 6c 65 61 6e 45 |.....got|o CleanE|
|00001860| 78 69 74 3b 0d 09 09 09 | 7d 0d 09 09 09 69 66 28 |xit;....|}....if(|
|00001870| 20 28 63 68 20 3d 3d 20 | 6b 63 68 52 65 74 75 72 | (ch == |kchRetur|
|00001880| 6e 29 20 26 26 20 28 66 | 41 64 64 4c 46 29 20 29 |n) && (f|AddLF) )|
|00001890| 20 7b 0d 09 09 09 09 70 | 61 72 61 6d 2e 69 6f 50 | {.....p|aram.ioP|
|000018a0| 61 72 61 6d 2e 69 6f 52 | 65 71 43 6f 75 6e 74 20 |aram.ioR|eqCount |
|000018b0| 3d 20 31 3b 0d 09 09 09 | 09 70 61 72 61 6d 2e 69 |= 1;....|.param.i|
|000018c0| 6f 50 61 72 61 6d 2e 69 | 6f 52 65 66 4e 75 6d 20 |oParam.i|oRefNum |
|000018d0| 3d 20 72 65 66 4f 75 74 | 3b 0d 09 09 09 09 70 61 |= refOut|;.....pa|
|000018e0| 72 61 6d 2e 69 6f 50 61 | 72 61 6d 2e 69 6f 42 75 |ram.ioPa|ram.ioBu|
|000018f0| 66 66 65 72 20 3d 20 26 | 65 63 68 6f 4c 69 6e 65 |ffer = &|echoLine|
|00001900| 66 65 65 64 3b 0d 09 09 | 09 09 65 72 72 20 3d 20 |feed;...|..err = |
|00001910| 50 42 57 72 69 74 65 28 | 20 26 70 61 72 61 6d 2c |PBWrite(| ¶m,|
|00001920| 20 66 61 6c 73 65 20 29 | 3b 0d 09 09 09 09 69 66 | false )|;.....if|
|00001930| 28 20 65 72 72 20 21 3d | 20 6e 6f 45 72 72 20 29 |( err !=| noErr )|
|00001940| 20 7b 0d 09 09 09 09 09 | 64 69 73 70 6c 61 79 5f | {......|display_|
|00001950| 65 72 72 6f 72 28 20 22 | 45 72 72 6f 72 20 65 63 |error( "|Error ec|
|00001960| 68 6f 69 6e 67 20 6c 69 | 6e 65 66 65 65 64 20 74 |hoing li|nefeed t|
|00001970| 6f 20 73 65 72 69 61 6c | 20 70 6f 72 74 2e 22 20 |o serial| port." |
|00001980| 29 3b 0d 09 09 09 09 09 | 65 72 72 20 3d 20 65 72 |);......|err = er|
|00001990| 72 53 65 72 69 61 6c 57 | 72 69 74 65 3b 0d 09 09 |rSerialW|rite;...|
|000019a0| 09 09 09 67 6f 74 6f 20 | 43 6c 65 61 6e 45 78 69 |...goto |CleanExi|
|000019b0| 74 3b 0d 09 09 09 09 7d | 0d 09 09 09 7d 0d 09 09 |t;.....}|....}...|
|000019c0| 7d 0d 0d 09 09 69 66 28 | 20 66 53 74 72 69 70 38 |}....if(| fStrip8|
|000019d0| 42 69 74 20 29 20 7b 0d | 09 09 09 63 68 20 26 3d |Bit ) {.|...ch &=|
|000019e0| 20 30 78 37 66 3b 0d 09 | 09 7d 0d 0d 09 09 69 66 | 0x7f;..|.}....if|
|000019f0| 28 20 28 63 68 20 3d 3d | 20 6b 63 68 4c 69 6e 65 |( (ch ==| kchLine|
|00001a00| 66 65 65 64 29 20 26 26 | 20 28 66 53 74 72 69 70 |feed) &&| (fStrip|
|00001a10| 4c 46 29 20 29 20 7b 0d | 09 09 09 63 63 68 2d 2d |LF) ) {.|...cch--|
|00001a20| 3b 0d 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |;...} el|se {....|
|00001a30| 69 66 28 20 21 73 74 6f | 72 65 5f 63 68 61 72 61 |if( !sto|re_chara|
|00001a40| 63 74 65 72 28 20 72 65 | 66 46 69 6c 65 2c 20 63 |cter( re|fFile, c|
|00001a50| 68 2c 20 70 63 68 2c 20 | 26 69 63 68 42 75 66 66 |h, pch, |&ichBuff|
|00001a60| 20 29 20 29 20 7b 0d 09 | 09 09 09 65 72 72 20 3d | ) ) {..|...err =|
|00001a70| 20 65 72 72 44 69 73 6b | 57 72 69 74 65 3b 0d 09 | errDisk|Write;..|
|00001a80| 09 09 09 67 6f 74 6f 20 | 43 6c 65 61 6e 45 78 69 |...goto |CleanExi|
|00001a90| 74 3b 0d 09 09 09 7d 0d | 09 09 7d 0d 09 09 63 63 |t;....}.|..}...cc|
|00001aa0| 68 2b 2b 3b 0d 09 7d 0d | 0d 09 0d 09 69 66 28 20 |h++;..}.|....if( |
|00001ab0| 63 63 68 20 3c 20 63 63 | 68 44 65 73 69 72 65 64 |cch < cc|hDesired|
|00001ac0| 20 29 20 7b 0d 09 09 65 | 72 72 20 3d 20 65 72 72 | ) {...e|rr = err|
|00001ad0| 54 69 6d 65 4f 75 74 3b | 0d 09 7d 20 65 6c 73 65 |TimeOut;|..} else|
|00001ae0| 20 7b 0d 09 09 65 72 72 | 20 3d 20 6e 6f 45 72 72 | {...err| = noErr|
|00001af0| 3b 0d 09 7d 0d 09 0d 43 | 6c 65 61 6e 45 78 69 74 |;..}...C|leanExit|
|00001b00| 3a 0d 0d 09 63 6c 6f 73 | 65 5f 66 69 6c 65 28 20 |:...clos|e_file( |
|00001b10| 72 65 66 46 69 6c 65 2c | 20 70 63 68 2c 20 69 63 |refFile,| pch, ic|
|00001b20| 68 42 75 66 66 20 29 3b | 0d 09 52 65 73 74 6f 72 |hBuff );|..Restor|
|00001b30| 65 41 34 28 29 3b 0d 09 | 72 65 74 75 72 6e 28 20 |eA4();..|return( |
|00001b40| 65 72 72 20 29 3b 0d 7d | 0d 0d 2f 2a 2a 2a 2a 2a |err );.}|../*****|
|00001b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b90| 2a 2a 2f 0d 2f 2a 0d 2f | 2a 09 6f 70 65 6e 5f 66 |**/./*./|*.open_f|
|00001ba0| 69 6c 65 0d 2f 2a 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |ile./*./|********|
|00001bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|00001bf0| 0d 0d 73 68 6f 72 74 20 | 6f 70 65 6e 5f 66 69 6c |..short |open_fil|
|00001c00| 65 28 20 70 73 74 46 69 | 6c 65 6e 61 6d 65 20 29 |e( pstFi|lename )|
|00001c10| 0d 0d 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |...regis|ter char|
|00001c20| 09 09 09 2a 70 73 74 46 | 69 6c 65 6e 61 6d 65 3b |...*pstF|ilename;|
|00001c30| 09 09 09 2f 2a 20 6e 61 | 6d 65 20 6f 66 20 66 69 |.../* na|me of fi|
|00001c40| 6c 65 20 69 6e 20 77 68 | 69 63 68 20 74 6f 20 73 |le in wh|ich to s|
|00001c50| 61 76 65 20 63 68 61 72 | 61 63 74 65 72 73 20 2a |ave char|acters *|
|00001c60| 2f 0d 0d 7b 0d 09 73 68 | 6f 72 74 09 09 09 09 09 |/..{..sh|ort.....|
|00001c70| 72 65 66 46 69 6c 65 3b | 09 09 09 09 2f 2a 20 72 |refFile;|..../* r|
|00001c80| 65 66 65 72 65 6e 63 65 | 20 6e 75 6d 62 65 72 20 |eference| number |
|00001c90| 66 6f 72 20 66 69 6c 65 | 20 2a 2f 0d 09 72 65 67 |for file| */..reg|
|00001ca0| 69 73 74 65 72 20 4f 53 | 45 72 72 09 09 09 65 72 |ister OS|Err...er|
|00001cb0| 72 3b 09 09 09 09 09 2f | 2a 20 72 65 73 75 6c 74 |r;...../|* result|
|00001cc0| 20 63 6f 64 65 20 66 72 | 6f 6d 20 54 6f 6f 6c 62 | code fr|om Toolb|
|00001cd0| 6f 78 20 72 6f 75 74 69 | 6e 65 73 20 2a 2f 0d 0d |ox routi|nes */..|
|00001ce0| 09 65 72 72 20 3d 20 46 | 53 4f 70 65 6e 28 20 70 |.err = F|SOpen( p|
|00001cf0| 73 74 46 69 6c 65 6e 61 | 6d 65 2c 20 30 2c 20 26 |stFilena|me, 0, &|
|00001d00| 72 65 66 46 69 6c 65 20 | 29 3b 0d 09 69 66 28 20 |refFile |);..if( |
|00001d10| 65 72 72 20 3d 3d 20 66 | 6e 66 45 72 72 20 29 20 |err == f|nfErr ) |
|00001d20| 7b 0d 09 09 65 72 72 20 | 3d 20 43 72 65 61 74 65 |{...err |= Create|
|00001d30| 28 20 70 73 74 46 69 6c | 65 6e 61 6d 65 2c 20 30 |( pstFil|ename, 0|
|00001d40| 2c 20 27 58 43 45 4c 27 | 2c 20 27 54 45 58 54 27 |, 'XCEL'|, 'TEXT'|
|00001d50| 20 29 3b 0d 09 09 69 66 | 28 20 65 72 72 20 21 3d | );...if|( err !=|
|00001d60| 20 6e 6f 45 72 72 20 29 | 20 7b 0d 09 09 09 64 69 | noErr )| {....di|
|00001d70| 73 70 6c 61 79 5f 65 72 | 72 6f 72 28 20 22 45 72 |splay_er|ror( "Er|
|00001d80| 72 6f 72 20 63 72 65 61 | 74 69 6e 67 20 66 69 6c |ror crea|ting fil|
|00001d90| 65 2e 22 20 29 3b 0d 09 | 09 09 72 65 74 75 72 6e |e." );..|..return|
|00001da0| 28 20 30 20 29 3b 0d 09 | 09 7d 0d 09 09 65 72 72 |( 0 );..|.}...err|
|00001db0| 20 3d 20 46 53 4f 70 65 | 6e 28 20 70 73 74 46 69 | = FSOpe|n( pstFi|
|00001dc0| 6c 65 6e 61 6d 65 2c 20 | 30 2c 20 26 72 65 66 46 |lename, |0, &refF|
|00001dd0| 69 6c 65 20 29 3b 0d 09 | 09 69 66 28 20 65 72 72 |ile );..|.if( err|
|00001de0| 20 21 3d 20 6e 6f 45 72 | 72 20 29 20 7b 0d 09 09 | != noEr|r ) {...|
|00001df0| 09 64 69 73 70 6c 61 79 | 5f 65 72 72 6f 72 28 20 |.display|_error( |
|00001e00| 22 45 72 72 6f 72 20 6f | 70 65 6e 69 6e 67 20 66 |"Error o|pening f|
|00001e10| 69 6c 65 2e 22 20 29 3b | 0d 09 09 09 72 65 74 75 |ile." );|....retu|
|00001e20| 72 6e 28 20 30 20 29 3b | 0d 09 09 7d 0d 09 7d 20 |rn( 0 );|...}..} |
|00001e30| 65 6c 73 65 20 69 66 28 | 20 65 72 72 20 3d 3d 20 |else if(| err == |
|00001e40| 6e 6f 45 72 72 20 29 20 | 7b 0d 09 09 65 72 72 20 |noErr ) |{...err |
|00001e50| 3d 20 53 65 74 45 4f 46 | 28 20 72 65 66 46 69 6c |= SetEOF|( refFil|
|00001e60| 65 2c 20 30 4c 20 29 3b | 0d 09 09 69 66 28 20 65 |e, 0L );|...if( e|
|00001e70| 72 72 20 21 3d 20 6e 6f | 45 72 72 20 29 20 7b 0d |rr != no|Err ) {.|
|00001e80| 09 09 09 64 69 73 70 6c | 61 79 5f 65 72 72 6f 72 |...displ|ay_error|
|00001e90| 28 20 22 45 72 72 6f 72 | 20 64 65 6c 65 74 69 6e |( "Error| deletin|
|00001ea0| 67 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 2e |g existi|ng file.|
|00001eb0| 22 20 29 3b 0d 09 09 09 | 72 65 74 75 72 6e 28 20 |" );....|return( |
|00001ec0| 30 20 29 3b 0d 09 09 7d | 0d 09 7d 20 65 6c 73 65 |0 );...}|..} else|
|00001ed0| 20 7b 0d 09 09 64 69 73 | 70 6c 61 79 5f 65 72 72 | {...dis|play_err|
|00001ee0| 6f 72 28 20 22 45 72 72 | 6f 72 20 6f 70 65 6e 69 |or( "Err|or openi|
|00001ef0| 6e 67 20 66 69 6c 65 2e | 22 20 29 3b 0d 09 09 72 |ng file.|" );...r|
|00001f00| 65 74 75 72 6e 28 20 30 | 20 29 3b 0d 09 7d 0d 09 |eturn( 0| );..}..|
|00001f10| 72 65 74 75 72 6e 28 20 | 72 65 66 46 69 6c 65 20 |return( |refFile |
|00001f20| 29 3b 0d 7d 0d 0d 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |);.}../*|********|
|00001f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00001f70| 2f 2a 0d 2f 2a 09 63 6c | 6f 73 65 5f 66 69 6c 65 |/*./*.cl|ose_file|
|00001f80| 0d 2f 2a 0d 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./*./***|********|
|00001f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 76 |********|****/..v|
|00001fd0| 6f 69 64 20 63 6c 6f 73 | 65 5f 66 69 6c 65 28 20 |oid clos|e_file( |
|00001fe0| 72 65 66 46 69 6c 65 2c | 20 70 63 68 2c 20 69 63 |refFile,| pch, ic|
|00001ff0| 68 42 75 66 66 20 29 0d | 0d 09 73 68 6f 72 74 09 |hBuff ).|..short.|
|00002000| 09 09 09 09 72 65 66 46 | 69 6c 65 3b 09 09 09 09 |....refF|ile;....|
|00002010| 2f 2a 20 72 65 66 65 72 | 65 6e 63 65 20 6e 75 6d |/* refer|ence num|
|00002020| 62 65 72 20 66 6f 72 20 | 66 69 6c 65 20 2a 2f 0d |ber for |file */.|
|00002030| 09 63 68 61 72 09 09 09 | 09 09 2a 70 63 68 3b 09 |.char...|..*pch;.|
|00002040| 09 09 09 09 2f 2a 20 62 | 75 66 66 65 72 20 75 73 |..../* b|uffer us|
|00002050| 65 64 20 69 6e 20 66 69 | 6c 65 20 72 65 61 64 69 |ed in fi|le readi|
|00002060| 6e 67 20 2a 2f 0d 09 75 | 6e 73 69 67 6e 65 64 20 |ng */..u|nsigned |
|00002070| 73 68 6f 72 74 09 09 09 | 69 63 68 42 75 66 66 3b |short...|ichBuff;|
|00002080| 09 09 09 09 2f 2a 20 69 | 6e 64 65 78 20 69 6e 20 |..../* i|ndex in |
|00002090| 62 75 66 66 65 72 20 2a | 2f 0d 09 0d 7b 0d 09 72 |buffer *|/...{..r|
|000020a0| 65 67 69 73 74 65 72 20 | 4f 53 45 72 72 09 09 09 |egister |OSErr...|
|000020b0| 65 72 72 3b 09 09 09 09 | 09 2f 2a 20 72 65 73 75 |err;....|./* resu|
|000020c0| 6c 74 20 63 6f 64 65 20 | 66 72 6f 6d 20 54 6f 6f |lt code |from Too|
|000020d0| 6c 62 6f 78 20 72 6f 75 | 74 69 6e 65 73 20 2a 2f |lbox rou|tines */|
|000020e0| 0d 09 6c 6f 6e 67 09 09 | 09 09 09 63 63 68 3b 09 |..long..|...cch;.|
|000020f0| 09 09 09 09 2f 2a 20 6e | 75 6d 62 65 72 20 6f 66 |..../* n|umber of|
|00002100| 20 63 68 61 72 61 63 74 | 65 72 20 6c 65 66 74 20 | charact|er left |
|00002110| 69 6e 20 62 75 66 66 65 | 72 20 2a 2f 0d 09 0d 09 |in buffe|r */....|
|00002120| 69 66 28 20 69 63 68 42 | 75 66 66 20 3e 20 30 20 |if( ichB|uff > 0 |
|00002130| 29 20 7b 0d 09 09 63 63 | 68 20 3d 20 69 63 68 42 |) {...cc|h = ichB|
|00002140| 75 66 66 3b 0d 09 09 65 | 72 72 20 3d 20 46 53 57 |uff;...e|rr = FSW|
|00002150| 72 69 74 65 28 20 72 65 | 66 46 69 6c 65 2c 20 26 |rite( re|fFile, &|
|00002160| 63 63 68 2c 20 70 63 68 | 20 29 3b 0d 09 09 69 66 |cch, pch| );...if|
|00002170| 28 20 65 72 72 20 3d 3d | 20 64 73 6b 46 75 6c 45 |( err ==| dskFulE|
|00002180| 72 72 20 29 20 7b 0d 09 | 09 09 64 69 73 70 6c 61 |rr ) {..|..displa|
|00002190| 79 5f 65 72 72 6f 72 28 | 20 22 44 69 73 6b 20 66 |y_error(| "Disk f|
|000021a0| 75 6c 6c 20 65 72 72 6f | 72 2e 22 20 29 3b 0d 09 |ull erro|r." );..|
|000021b0| 09 7d 20 65 6c 73 65 20 | 69 66 28 20 65 72 72 20 |.} else |if( err |
|000021c0| 3d 3d 20 76 4c 63 6b 64 | 45 72 72 20 29 20 7b 0d |== vLckd|Err ) {.|
|000021d0| 09 09 09 64 69 73 70 6c | 61 79 5f 65 72 72 6f 72 |...displ|ay_error|
|000021e0| 28 20 22 54 68 65 20 76 | 6f 6c 75 6d 65 20 69 73 |( "The v|olume is|
|000021f0| 20 6c 6f 63 6b 65 64 2e | 22 20 29 3b 0d 09 09 7d | locked.|" );...}|
|00002200| 20 65 6c 73 65 20 69 66 | 28 20 65 72 72 20 21 3d | else if|( err !=|
|00002210| 20 6e 6f 45 72 72 20 29 | 20 7b 0d 09 09 09 64 69 | noErr )| {....di|
|00002220| 73 70 6c 61 79 5f 65 72 | 72 6f 72 28 20 22 45 72 |splay_er|ror( "Er|
|00002230| 72 6f 72 20 69 6e 20 77 | 72 69 74 69 6e 67 20 74 |ror in w|riting t|
|00002240| 6f 20 66 69 6c 65 2e 22 | 20 29 3b 0d 09 09 7d 0d |o file."| );...}.|
|00002250| 09 7d 0d 09 0d 09 65 72 | 72 20 3d 20 46 53 43 6c |.}....er|r = FSCl|
|00002260| 6f 73 65 28 20 72 65 66 | 46 69 6c 65 20 29 3b 0d |ose( ref|File );.|
|00002270| 09 69 66 28 20 65 72 72 | 20 21 3d 20 6e 6f 45 72 |.if( err| != noEr|
|00002280| 72 20 29 20 7b 0d 09 09 | 64 69 73 70 6c 61 79 5f |r ) {...|display_|
|00002290| 65 72 72 6f 72 28 20 22 | 45 72 72 6f 72 20 63 6c |error( "|Error cl|
|000022a0| 6f 73 69 6e 67 20 66 69 | 6c 65 2e 22 20 29 3b 0d |osing fi|le." );.|
|000022b0| 09 7d 0d 09 0d 09 44 69 | 73 70 6f 73 50 74 72 28 |.}....Di|sposPtr(|
|000022c0| 20 70 63 68 20 29 3b 0d | 7d 0d 0d 2f 2a 2a 2a 2a | pch );.|}../****|
|000022d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002310| 2a 2a 2a 2f 0d 2f 2a 0d | 2f 2a 09 73 74 6f 72 65 |***/./*.|/*.store|
|00002320| 5f 63 68 61 72 61 63 74 | 65 72 0d 2f 2a 0d 2f 2a |_charact|er./*./*|
|00002330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002370| 2a 2a 2a 2a 2a 2a 2f 0d | 0d 42 6f 6f 6c 65 61 6e |******/.|.Boolean|
|00002380| 20 73 74 6f 72 65 5f 63 | 68 61 72 61 63 74 65 72 | store_c|haracter|
|00002390| 28 20 72 65 66 46 69 6c | 65 2c 20 63 68 2c 20 70 |( refFil|e, ch, p|
|000023a0| 63 68 2c 20 70 69 63 68 | 42 75 66 66 20 29 0d 0d |ch, pich|Buff )..|
|000023b0| 09 73 68 6f 72 74 09 09 | 09 09 09 72 65 66 46 69 |.short..|...refFi|
|000023c0| 6c 65 3b 09 09 09 09 2f | 2a 20 72 65 66 65 72 65 |le;..../|* refere|
|000023d0| 6e 63 65 20 6e 75 6d 62 | 65 72 20 66 6f 72 20 66 |nce numb|er for f|
|000023e0| 69 6c 65 20 2a 2f 0d 09 | 72 65 67 69 73 74 65 72 |ile */..|register|
|000023f0| 20 63 68 61 72 09 09 09 | 63 68 3b 09 09 09 09 09 | char...|ch;.....|
|00002400| 09 2f 2a 20 63 68 61 72 | 61 63 74 65 72 20 72 65 |./* char|acter re|
|00002410| 61 64 20 2a 2f 0d 09 63 | 68 61 72 09 09 09 09 09 |ad */..c|har.....|
|00002420| 2a 70 63 68 3b 09 09 09 | 09 09 2f 2a 20 62 75 66 |*pch;...|../* buf|
|00002430| 66 65 72 20 75 73 65 64 | 20 69 6e 20 66 69 6c 65 |fer used| in file|
|00002440| 20 72 65 61 64 69 6e 67 | 20 2a 2f 0d 09 75 6e 73 | reading| */..uns|
|00002450| 69 67 6e 65 64 20 73 68 | 6f 72 74 09 09 09 2a 70 |igned sh|ort...*p|
|00002460| 69 63 68 42 75 66 66 3b | 09 09 09 09 2f 2a 20 69 |ichBuff;|..../* i|
|00002470| 6e 64 65 78 20 69 6e 20 | 62 75 66 66 65 72 20 2a |ndex in |buffer *|
|00002480| 2f 0d 09 0d 7b 0d 09 72 | 65 67 69 73 74 65 72 20 |/...{..r|egister |
|00002490| 4f 53 45 72 72 09 09 09 | 65 72 72 3b 09 09 09 09 |OSErr...|err;....|
|000024a0| 09 2f 2a 20 72 65 73 75 | 6c 74 20 63 6f 64 65 20 |./* resu|lt code |
|000024b0| 66 72 6f 6d 20 54 6f 6f | 6c 62 6f 78 20 72 6f 75 |from Too|lbox rou|
|000024c0| 74 69 6e 65 73 20 2a 2f | 0d 09 6c 6f 6e 67 09 09 |tines */|..long..|
|000024d0| 09 09 09 63 63 68 3b 09 | 09 09 09 09 2f 2a 20 6e |...cch;.|..../* n|
|000024e0| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 61 63 74 |umber of| charact|
|000024f0| 65 72 20 6c 65 66 74 20 | 69 6e 20 62 75 66 66 65 |er left |in buffe|
|00002500| 72 20 2a 2f 0d 09 0d 09 | 69 66 28 20 2a 70 69 63 |r */....|if( *pic|
|00002510| 68 42 75 66 66 20 3c 20 | 6b 63 63 68 42 75 66 66 |hBuff < |kcchBuff|
|00002520| 20 29 20 7b 0d 09 09 70 | 63 68 5b 2a 70 69 63 68 | ) {...p|ch[*pich|
|00002530| 42 75 66 66 5d 20 3d 20 | 63 68 3b 0d 09 09 28 20 |Buff] = |ch;...( |
|00002540| 2a 70 69 63 68 42 75 66 | 66 20 29 2b 2b 3b 0d 09 |*pichBuf|f )++;..|
|00002550| 7d 20 65 6c 73 65 20 7b | 0d 09 09 63 63 68 20 3d |} else {|...cch =|
|00002560| 20 6b 63 63 68 42 75 66 | 66 3b 0d 09 09 65 72 72 | kcchBuf|f;...err|
|00002570| 20 3d 20 46 53 57 72 69 | 74 65 28 20 72 65 66 46 | = FSWri|te( refF|
|00002580| 69 6c 65 2c 20 26 63 63 | 68 2c 20 70 63 68 20 29 |ile, &cc|h, pch )|
|00002590| 3b 0d 09 09 69 66 28 20 | 65 72 72 20 3d 3d 20 64 |;...if( |err == d|
|000025a0| 73 6b 46 75 6c 45 72 72 | 20 29 20 7b 0d 09 09 09 |skFulErr| ) {....|
|000025b0| 64 69 73 70 6c 61 79 5f | 65 72 72 6f 72 28 20 22 |display_|error( "|
|000025c0| 44 69 73 6b 20 66 75 6c | 6c 20 65 72 72 6f 72 2e |Disk ful|l error.|
|000025d0| 22 20 29 3b 0d 09 09 09 | 72 65 74 75 72 6e 28 20 |" );....|return( |
|000025e0| 66 61 6c 73 65 20 29 3b | 0d 09 09 7d 20 65 6c 73 |false );|...} els|
|000025f0| 65 20 69 66 28 20 65 72 | 72 20 3d 3d 20 76 4c 63 |e if( er|r == vLc|
|00002600| 6b 64 45 72 72 20 29 20 | 7b 0d 09 09 09 64 69 73 |kdErr ) |{....dis|
|00002610| 70 6c 61 79 5f 65 72 72 | 6f 72 28 20 22 54 68 65 |play_err|or( "The|
|00002620| 20 76 6f 6c 75 6d 65 20 | 69 73 20 6c 6f 63 6b 65 | volume |is locke|
|00002630| 64 2e 22 20 29 3b 0d 09 | 09 09 72 65 74 75 72 6e |d." );..|..return|
|00002640| 28 20 66 61 6c 73 65 20 | 29 3b 0d 09 09 7d 20 65 |( false |);...} e|
|00002650| 6c 73 65 20 69 66 28 20 | 65 72 72 20 21 3d 20 6e |lse if( |err != n|
|00002660| 6f 45 72 72 20 29 20 7b | 0d 09 09 09 64 69 73 70 |oErr ) {|....disp|
|00002670| 6c 61 79 5f 65 72 72 6f | 72 28 20 22 45 72 72 6f |lay_erro|r( "Erro|
|00002680| 72 20 69 6e 20 77 72 69 | 74 69 6e 67 20 74 6f 20 |r in wri|ting to |
|00002690| 66 69 6c 65 2e 22 20 29 | 3b 0d 09 09 09 72 65 74 |file." )|;....ret|
|000026a0| 75 72 6e 28 20 66 61 6c | 73 65 20 29 3b 0d 09 09 |urn( fal|se );...|
|000026b0| 7d 0d 09 09 0d 09 09 2a | 70 69 63 68 42 75 66 66 |}......*|pichBuff|
|000026c0| 20 3d 20 31 3b 0d 09 09 | 2a 70 63 68 20 3d 20 63 | = 1;...|*pch = c|
|000026d0| 68 3b 0d 09 7d 0d 09 72 | 65 74 75 72 6e 28 20 74 |h;..}..r|eturn( t|
|000026e0| 72 75 65 20 29 3b 0d 7d | 0d 0d 23 69 6e 63 6c 75 |rue );.}|..#inclu|
|000026f0| 64 65 20 22 67 65 74 5f | 70 6f 72 74 2e 63 22 0d |de "get_|port.c".|
|00002700| 23 69 6e 63 6c 75 64 65 | 20 22 67 65 74 5f 72 65 |#include| "get_re|
|00002710| 61 64 5f 66 6c 61 67 73 | 2e 63 22 0d 0d 00 00 00 |ad_flags|.c".....|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00002790| 2a 2f 0d 0d 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*/../***|********|
|000027a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027b0| 15 73 65 72 69 61 6c 2e | 72 65 61 64 46 69 6c 65 |.serial.|readFile|
|000027c0| 2e 64 6c 6c 2e 63 02 00 | 00 00 54 45 58 54 4d 50 |.dll.c..|..TEXTMP|
|000027d0| 00 00 54 45 58 54 4d 50 | 53 20 00 0c 00 8c 00 00 |..TEXTMP|S ......|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 a0 c2 d2 0c 00 00 | 26 9d 00 00 01 7e 2a 2a |........|&....~**|
|00002800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002840| 2a 2a 2a 2f 0d 0d 23 64 | 65 66 69 6e 65 20 52 4f |***/..#d|efine RO|
|00002850| 55 54 49 4e 45 5f 4e 41 | 4d 45 09 22 73 65 72 69 |UTINE_NA|ME."seri|
|00002860| 61 6c 2e 72 65 61 64 46 | 69 6c 65 22 0d 23 64 65 |al.readF|ile".#de|
|00002870| 66 69 6e 65 20 68 4e 49 | 4c 20 30 4c 0d 23 64 65 |fine hNI|L 0L.#de|
|00002880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2a 2a 2a |...H..Mo|naco.***|
|00002890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028a0| 2a 2f 0d 2f 2a 2a 00 06 | 00 04 01 0e 01 01 01 68 |*/./**..|.......h|
|000028b0| 01 d1 01 0e 01 01 01 68 | 01 d1 a0 f4 c9 2b 00 00 |.......h|.....+..|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000028d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 28 ed 7c |...L...L|...2.(.||
|000028e0| 0a a8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000028f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
